Attribute VB_Name = "ONTimer"
Public Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, _
                        ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Sub SetLable()
    
    Frm_Msg.Label2.Caption = CStr(CInt(Frm_Msg.Label2.Caption) - 1)
'    If Frm_Msg.Cmd_ReTest.Visible = False Then
'        Frm_Msg.Label2.Visible = False
'        Frm_Msg.Label2.Enabled = False
'    End If
    If CInt(Frm_Msg.Label2.Caption) < 0 Then
        Frm_Msg.Label2.Caption = "0"
    End If
    If Frm_Msg.Label2.Caption = "0" Then
        Frm_Msg.Cmd_ReTest.Enabled = False
        Frm_Msg.Label2.Visible = False
        Frm_Msg.Label2.Enabled = False
    End If
    
End Sub

